library(DeclareDesign)
library(rdss)
library(tidyverse)
library(sf)
library(ggspatial)
library(grid)

fairfax <-
  fairfax |> 
  filter(PREC_IDENT != 700)

g <- 
  ggplot(fairfax) + 
  geom_sf() +
  theme_minimal() + 
  theme(
    panel.grid = element_blank(),
    axis.text = element_blank()
  ) + 
  annotation_scale() + 
  annotation_north_arrow(
    height = unit(0.25, units = "in"),
    width = unit(0.25, units = "in"),
    location = "bl", which_north = "true", 
    pad_x = unit(0.25, "in"),
    pad_y = unit(0.4, "in"),
    style = north_arrow_fancy_orienteering) 

g

ggsave("figures/figure_18.15.pdf",
       g,
       width = 6.5,
       height = 6.5)
ggsave("figures/figure_18.15.svg",
       g,
       width = 6.5,
       height = 6.5)
